home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / programs / progEG < prev    next >
Encoding:
Text File  |  1995-06-29  |  1.1 KB  |  42 lines
  1.  
  2. # sample program at the end of the user manual
  3.  
  4. xtAppInitialize -class Program
  5.  
  6. xmMainWindow .main managed
  7. xmForm .main.form managed
  8. xmList .main.form.list managed
  9. xmPushButton .main.form.btn1 managed
  10. xmPushButton .main.form.btn2 managed
  11.  
  12. .main setValues -workWindow .main.form
  13.  
  14. .main.form.list setValues \
  15.         -itemCount 3 \
  16.         -items "one, two, three" \
  17.         -selectionPolicy single_select
  18. .main.form.btn1 setValues -labelString Quit
  19. .main.form.btn2 setValues -labelString "Do nothing"
  20.  
  21. .main.form.btn1 activateCallback {exit 0}
  22. .main.form.list singleSelectionCallback {puts stdout "Selected %item"}
  23.  
  24. .main.form.list setValues \
  25.         -topAttachment attach_form \
  26.         -leftAttachment attach_form \
  27.         -bottomAttachment attach_form
  28. .main.form.btn1 setValues \
  29.         -topAttachment attach_form \
  30.         -leftAttachment attach_widget \
  31.         -leftWidget .main.form.list
  32. .main.form.btn2 setValues \
  33.         -topAttachment attach_widget \
  34.         -topWidget .main.form.btn1 \
  35.         -leftAttachment attach_widget \
  36.         -leftWidget .main.form.list \
  37.  
  38.  
  39. . realizeWidget
  40.  
  41. . mainLoop
  42.